<!--#include file="top.asp"-->

<%
	Sub test_call(old_word, new_word)
		Dim str_test, new_str
		str_test = "Year 3 year 5"
		new_str = Replace(str_test, old_word, new_word)
		response.write new_str
	End Sub
	
	Sub last_rs()
		Dim rs_test, str_test
		Set rs_test = server.CreateObject("Adodb.Recordset")
		str_test = "select * from rpt_art"

		rs_test.open str_test, conn, 1, 3

		field_count = rs_test.fields.count
		response.write field_count
		response.write rs_test(field_count-1)
	End Sub
	
	Call last_rs()

%>


</body>
</html>
<%
call CloseConn()
%>